0 REM *********************************
1 REM *****  DECOMPRESSOR DEMO    *****
2 REM ***** BY SCOTT MILLER PETTY *****
3 REM ***** 407 B. SMITH AVENUE   *****
4 REM ***** CHAPEL HILL, N.C.     *****
5 REM *****               27514   *****
6 REM ***** (919)-967-8522        *****
7 REM *********************************
10 IFA>0THEN25
15 POKE53280,12:POKE53281,15:PRINT"":POKE56,126:POKE55,244:CLR
20 IFA=0THENA=1:PRINT"[147]":LOAD"DECOMPRESSOR.O",8,1
25 T$="[151]            DECOMPRESSOR DEMO           ":PRINTT$
30 IFA=1THENA=2:POKE53265,PEEK(53265)OR16:INPUT"FILENAME OF PICTURE ";F$
35 INPUT"LOAD ADDRESS OF PIC ";LA
40 PRINT"   [151] HIT + KEY TO CHANGE BORDER COLOR."
45 PRINT" [151] HIT - KEY TO CHANGE BACKGROUND COLOR."
50 PRINT"   [151] HIT ANY OTHER KEY TO EXIT HIRES. ":FORI=0TO1000:NEXT
55 PRINT"          HIT RUN/STOP TO END [146]"
60 GOSUB115:GOSUB100:POKE53265,PEEK(53265)OR16:D1=49152:D2=D1+26
65 SYSD1,F$,LA,52224:R1=PEEK(249)+256*PEEK(250)+6
70 SYSD2,R1,55296:R2=PEEK(249)+256*PEEK(250)+6:SYSD2,R2,57344
75 R3=PEEK(249)+256*PEEK(250)+6:POKE53281,PEEK(R3+1):POKE53280,PEEK(R3+2)
80 WAIT198,15:GETT$:IFT$="+"THENBO=BO+1:IFBO>15THENBO=0
85 IFT$="-"THENBG=BG+1:IFBG>15THENBG=0
90 IFT$="+"ORT$="-"THENPOKE53281,BG:POKE53280,BO:GOTO80
95 GOSUB115:WAIT198,15:GETT$:GOSUB100:GOTO80
100 REM ******* CHANGE BANKS *********
105 POKE53272,56:POKE53265,PEEK(53265)OR32:POKE53270,PEEK(53270)OR16
110 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR0:RETURN
115 REM ****** NORMAL SCREEN ********
120 POKE53272,21:POKE53265,PEEK(53265)AND223:POKE53270,PEEK(53270)AND239
125 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3:RETURN